home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2003-10_2003_CSW_Side_A.d64 / lameus _jupp3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  117 lines
  1. 0 s=10
  2. 1 dim st(s)
  3. 2 dim sl(s)
  4. 3 dim ox%(s)
  5. 4 dim oy%(s)
  6. 5 dimsp(s)
  7. 6 rem
  8. 7 fori=0tos:sl(i)=0:st(i)=((rnd(1))*2*(NULL)):ox(i)=1:oy(i)=1:sp(i)=rnd(1)*2+0.5:next
  9. 8 poke53280,0:poke53281,0:print"[147]  [144]jupp3 presents:"
  10. 9 print"  a multimedia presentation at":print"  dataparty 2003 called"
  11. 10 print"  -lameus maximus-":print" (jee)"
  12. 11 fori=55296to56295:pokei,1:next
  13. 12 print"[147]"
  14. 13 fori=0to79:poke55296+i,11:poke56216+i,11:poke55376+i,12:poke56136+i,12
  15. 14 poke55456+i,15:poke56056+i,15:next
  16. 15 fori=2to23:poke55296+i*40,11:poke55297+i*40,11:poke55334+i*40,11
  17. 16 poke 55335+i*40,11:next
  18. 17 fori=4to21:poke55298+i*40,12:poke55299+i*40,12:poke55332+i*40,12
  19. 18 poke55333+i*40,12:next
  20. 19 fori=6to19:poke55300+i*40,15:poke55301+i*40,15:poke55330+i*40,15
  21. 20 poke55331+i*40,15:next
  22. 21 rem
  23. 22 foru=0to12
  24. 24 fori=0tos:sl(i)=sl(i)+sp(i):x%=20+sl(i)*sin(st(i)):y%=12+sl(i)*cos(st(i))
  25. 25 poke1024+oy%(i)*40+ox%(i),32
  26. 30 if(x%<0)or(x%>39)or(y%<0)or(y%>24)thengoto100
  27. 35 rem
  28. 40 poke1024+40*y%+x%,46
  29. 45 ox%(i)=x%:oy%(i)=y%
  30. 50 nexti
  31. 60 nextu
  32. 70 gosub410
  33. 80 goto200
  34. 100 sl(i)=0:st(i)=(rnd(1)*2*(NULL)):sp(s)=rnd(1)*2+0.5:x%=20:y%=12:goto40
  35. 200 rem * cube *
  36. 201 foru=0to30
  37. 205 fori=0to100:nexti
  38. 210 print"[147]"
  39. 215 rem
  40. 220 x=int(rnd(1)*6+1)
  41. 230 onxgoto290,300,310,320,330,340
  42. 235 nextu
  43. 236 gosub410
  44. 237 rem
  45. 240 print"[147][144]  of course, last part is the best"
  46. 241 print"  coming next is:"
  47. 250 print"  texture mapped shaded 3d landscape"
  48. 251 print"  press any key to skip to credits,"
  49. 260 print"  or any other key to go to last part"
  50. 261 fori=55296to56295:pokei,1:next
  51. 270 geta$
  52. 271 ifa$=""thengoto270
  53. 280 gosub410
  54. 281 goto500
  55. 290 print"  [175][175][175][175][157][157][157][157][157][206]   [206][180][157][157][157][157][157][157][157][206]   [206] [180][157][157][157][157][157][157][157][207][183][183][208]  [180]";
  56. 291 print"[157][157][157][157][157][157][157][180]  [170]  [180][157][157][157][157][157][157][157][180]  [170] [206][157][157][157][157][157][157][204][175][175][186][206]"
  57. 292 goto400
  58. 300 print" [175][175][175][175] [157][157][157][157][157][157][170][205]   [205][157][157][157][157][157][157][170] [205]   [205][157][157][157][157][157][157][157][170]  [207][183][183][208]";
  59. 301 print"[157][157][157][157][157][157][157][170]  [180]  [170][157][157][157][157][157][157][205] [180]  [170][157][157][157][157][157][205][204][175][175][186]"  "
  60. 302 [137]400
  61. 310 [153]"(NULL)usrusr(NULL)(NULL) cmdcmdcmdcmdcmdcmdsgn  + (NULL)cmdcmdcmdcmdcmdcmdsgn  +  sgncmdcmdcmdcmdcmdcmdcmd(NULL)andandsqr  sgn";
  62. 311 [153]"cmdcmdcmdcmdcmdcmdcmd(NULL)   (NULL) sgncmdcmdcmdcmdcmdcmd(NULL)   (NULL)sgncmdcmdcmdcmdcmdusrusrusrusr"
  63. 312 [137]400
  64. 320 [153]" (NULL)(NULL)usrusr(NULL)cmdcmdcmdcmdcmdcmdcmd (NULL) sgn  +cmdcmdcmdcmdcmdcmdcmd+  sgn  +cmdcmdcmdcmdcmdcmdcmd+  (NULL)andandsqr";
  65. 321 [153]"cmdcmdcmdcmdcmdcmdcmd+ (NULL)   (NULL)cmdcmdcmdcmdcmdcmdcmd+(NULL)   (NULL)cmdcmdcmdcmdcmdusrusrusrusr"
  66. 322 [137]400
  67. 330 [153]"      cmdcmdcmdcmdcmdcmdcmd (NULL)usrusr(NULL)cmdcmdcmdcmdcmd sgn  +  cmdcmdcmdcmdcmdcmdcmd sgn  +";
  68. 331 [153]"cmdcmdcmdcmdcmdcmdcmd   (NULL)andandsqr"
  69. 332 [137]400
  70. 340 [153]"  (NULL)(NULL)  cmdcmdcmdcmdcmd(NULL)  (NULL)cmdcmdcmdcmdcmd(NULL)    (NULL) cmdcmdcmdcmdcmdcmdcmd(NULL)    (NULL)";
  71. 341 [153]"cmdcmdcmdcmdcmdcmdcmd  (NULL)  (NULL)cmdcmdcmd(NULL)(NULL)"
  72. 342 [137]400
  73. 400 [130]u
  74. 405 [137]240
  75. 410 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(on"
  76. 411 [153]"onusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  77. 412 [153]"onfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  78. 413 [153]"onnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  79. 414 [153]"onpospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  80. 415 [153]"onandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  81. 416 [153]"ontotototototototototototototototototototototototototototototototototototototototo"
  82. 417 [129]u[178]0[164]24
  83. 418 [153]"on                                        "
  84. 419 [130]u
  85. 420 [153]"ontotototototototototototototototototototototototototototototototototototototototo"
  86. 421 [153]"onandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  87. 422 [153]"onpospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  88. 423 [153]"onnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  89. 424 [153]"onfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  90. 425 [153]"onusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  91. 426 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(on"
  92. 427 [129]u[178]0[164]24
  93. 428 [153]"on                                        "
  94. 429 [130]u
  95. 430 [142]
  96. 500 [143] * greetz *
  97. 501 [153]"loadstop  greetings to:"
  98. 502 [153]"  dekadence for organizing this party"
  99. 503 [153]"  koira (shame, you couldn't come here)"
  100. 504 [153]"  (no greetings to his dad)"
  101. 505 [153]"  all sceners around the world!"
  102. 506 [153]"  ...and last but not least:"
  103. 507 [153]"  greetings to everyone attending"
  104. 508 [153]"  dataparty 2003!"
  105. 509 [153]"  (including myself)"
  106. 510 [153]"  * the end*"
  107. 520 [129]i[178]55296[164]56295:[151]i,1:[130]
  108. 999 [128]
  109. 1000 [143]
  110. 1001 [143]
  111. 1002 [143]
  112. 1003 [143]
  113. 1004 [143]
  114. 1005 [143]
  115. 1006 [143]
  116. 1007 [143]
  117.